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This edition of the newsletter will cover 
December and January as we like to have a break at 
this time of year, and this combined issue rollouts 
the pattern of previous years. 

We are proud to announce that the National 
0S9 User Group is in receipt of an award for our 
efforts. The National 0S9 User Group has been 
honoured by the 'Coco-Link Award 1990'. Those of 
you who also support the Coco-Link magazine 
produced by Robbie Dalzell as editor and Garry 
Holder as sub-editor would already be aware of 
this award, as a copy of it was included in the 
December edition of Coco-Link. 

I must say that we were taken completely by 
surprise by this award and are most grateful for 
the recognition of our efforts to support 0S9 and 
the Color Computer, and of course very pleased to 
receive the $1852.00 cheque, payable to the 
National 0S9 Usergroup, which is part of the Coco- 
Link award. 

Our sincere thanks go to Robbie Dalzell and 
Garry Holder for this unexpected but very welcome 
recognition. 
(It's always nice to receive a pat on the back.) 

The COCO-LINK MAGAZINE is produced bi-monthly in 
South Australia and is well worth your support if 
you are interested in any aspects of the Tandy 
Color Computer. This magazine includes many 
interesting BASIC listings, hardware tips, general 
information, advertisements for hardware / 
software and even presents 0S9 articles. If you 
do not currently subscribe then contact :- 

Coco-Link Magazine 
31 Nedland Cres. 
Pt.Noarlunga Sth. S.A. 5167 

Phone (08) 386 1647 

SUBMISSIONS We are in urgent need of submissions 

for inclusion in this Australian 0S9 Newsletter. 

Our more advanced members seem to be mostly 
interested in "C programmes whilst new users are 

often requesting Basic09 listings and programmes. 

So how about it, every member must be able to 

submit something which is suitable for the public 



domain. Your submission does not have to be a 
masterpiece as we can all learn something from 
others at all skill levels. Maybe you Uave 
questions or a problem which someone in the 
usergroup will be able to solve. 

The Australian 0S9 Newsletter is intended to 
be a newsletter produced by the members of the 
National 0S9 Usergroup. That is you. We simply 
collate all the information and present it here in 
the news letter. The intent also is that this 
service is provided on a non-profit basis, hence 
no paid advertisements are included and no charges- 
apply to members for any submissions, including 
private ads. 

All submissions must be sent to us on DISK, 
preferably in 0S9 format and as a "vanilla" ASCII 
file. We can however transfer "vanilla" ASCII 
files from RS-DOS and MS-DOS disks. 

IN THIS EDITION Bob Devries presents some 
valuable information on transferring 0S9 PROFILE 
files to SDF (System Data Files) and also presents 
the advantages of using the GFX2 module which is 
available from our P.D. library. 

Don Berrie has included some insight for Multi-Vue 
users, and I have some comments about "SPANNER", a 
hard-disk backup and restore utility, also from 
the P.D. library. 



Unfortunately our P.D. database is not yet 
completed so we are still not able to fill 
requests for a copy of it on disk. Work is 
continuing on this and it will be completed early 
in the new year. 

We do hope that you have found something of 
interest in the newsletters presented during 1990 
and that the article which you are going to submit 
will help other members enjoy their 0S9 even 
more. Remember to look for our next newsletter 
edition in February 1991. 

Cheers, Gordon. 

MERRY CHRISTMAS TO ALL 



Bob, Don, Jean-Pierre & Gordon, 
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We publish the following documentation! together with the C source code with the kind permission of the 
author Jerry Stratton, one of the more active contributors to the INTERNET 0S9 sailing list. If you do 
not have the necessary C compiler to enable you to compile it, the compiled executable file is available 
from our public domain library. The usual rules for copying apply. (You will also need the Cgfx.l 
library replacement, together with the support header files in order to successfully compile it. This 
replacement library is also available in our PD library.) 

OPTSTART 

OptStart allows you tc use the same script to do different things, without having to ask or wait. It 
takes one or two commands, and then executes one of the commands depending on whether a specified key is 
being held down. 

For example, I have the following line in my startup script: 

optstart 'rdisk </dB/Yes' 'rdisk r s </l 

Optstart defaults to checking the SHIFT key. So, in this case, the command B rdisk O'dB/Yes' is executed 
if I am not holding down the shift key. This simply sets up my ramdisk. If I am holding down the shift 
key, it executes the command 'rdisk r 1 . This attempts to rebuild whatever ramdisk existed before I 
rebooted, (this is the RamDisk available from MicroCom). 

You can use any of the following keys: 

SHIFT 

CTRL 

ALT 

LEFT arrow 

RIGHT arrow 

V? arrow 

DOWN arrow 

SPACE bar 

and these can be used in any combination. The following command: 

OptStart "echo up' 'echo down' -shift -ctrl 
will echo the word "down" if both the shift and control keys are held down. Otherwise, it will echo "up'. 

OptStart 'mega' -shift -ctrl -alt </l 

in your startup script will execute the 'mega' command ^setting up 1 heg) UNLESS you are holding down the 
SHIFT key, the CTRL key, and the ALT key. 

Note that the </I is required in scripts, which is where you'll probably be using OptStart most often. 

Jerry Stratton 
CRITSusdcsv. acusd.edu 



■CUT HERE- 



J* OptStart [IfUpl IfDown [-optkey] (c) 1996 Jerry Stratton */ 

^include <stdio.h> 
^include <keysense.h> 

ttdefine Stdln B 
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#define StdOut 1 
#define StdErr 2 

fiain (argc»argv) 
int argc; 
char *argv[ 3; 



int Keys=0; 
char *Doum= , \e"; 
char *Up='\0'; 

/* exit quietly if there are no arguments */ 
if <argc<2> 
exit(B); 

/* check for options and commands */ 
while (— argc) { 

if UargvLargcl— '-') 

Keys+=5etKey ( argvL argc 3+1 ) ; 
else if (*Boam) 

Up=argv[argc3; 
else 

Doim=argv[argc3i 
} 

/* if no conditions were given, exit quietly */ 
if (*Donm==0) 
exit(0}; 

/* if no options were given, assume shiftkey */ 
if (Keys==0) 
Keys=SHIFTBIT; 

/* check if the Key(s) are ticwr; */ 
if ((Keys&_g5_ksns(StdIn))==Keys} { 

system (Down); 

uaitO; 
) else if (*Up) i /* if an Up branch exists, do it */ 

system (Up); 

waitO; 
} 



/* find out what key the option is */ 
GetKey (Option) 
char *0ption? 
( 

int County 
static struct ( 
char *0ptNane5 
int Mask; 

} OptsC 3= !!" SHIFT 1 , SHIFTBITJ, 
{ 'CTRL', CTRLEITi, 
CALTNALTBITi, 
CUF s ,UPBITi, 
CD0WN B ,D0WNBITi, 
{'LEFTMEFTBITJ, 
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('RIGHT', RIOTBlTi, 
{ 'SPACE', SPACEB1T}, 
( 'dummy', 0U; 

while < Count <sizeof (Opts) && strucmp(0pts[Count3.0ptName,0ption)) 

H-Count; 
return (Opt s[ Count l.Mask) i 



OS? Profile to SDF conversion. 
dy Bob Devries. 



Recently there has appeared a new 0S9 database 
programme, namely Data-Windows, written by Keith 
Alphonso and sold by Alpha Software Technologies. 
The idea behind this database programme is quite 
good, in that is uses 0S9's windowing capabilities 
to its fullest extent. Multiple windows may be set 
up to simultaneously display data and reports in 
different ways, and with different key fields, 

The programme is not without its problems and 
minor bugs, however One of these buglets is that 
it, like one of Mr. Alphonso 1 s other programmes, 
'DMTree', it does not leave the window the way it 
found it when it quits. 

Another rather annoying problem is that the 
manual is written as if the user is expected to be 
an expert in both the use of databases, and indeed 
the programme itself! Quite e few features are 
merely skimmed over, and others are not mentioned 
at all. A mention is made of a file format called 
DB9-90, but nowhere is this file format explained. 
To find this information, you will be required to 
purchase extra software from the company. 

Without going into the trials and tribulations 
I went to to try and get a working database using 
the copy lent to me by one of our members for 
review purposes, I will get to the point of this 
article. 1 wanted to import a database front 0S9 
Profile, and, according to the Data-Windows 
manual, it is capable of importing data in SDF 
format, which is a file format that quite a few 
other database programmes use for exporting files. 
Not so 0S9 Profile, however. It only outputs data 
in DynaCalc spreadsheet format. That's fine if you 
want to put data into your spreadsheets, but not 



much use for anything else. Now what my little C 
programme does is read the Dynacalc file format 
that Profile writes, and outputs an SDF format 
file. For those who are not familiar with SDF 
files, here's what they look like:- 

■field iVfield 2 B , , 'field n 6 <CR> 

this is record 1 

"field 1', 'field 2', , 'field n'<CR> 

this is record 2 



And so on for all the records in the database 
file. 

So you see that fields within records are 
separated by commas, and surrounded by inverted 
commas, and records are separated by carraige 
returns. By the way, here I encountered what to me 
is a rather serious bug in 0S9 Profile, namely 
that you cannot create a spreadsheet file from a 
database that has anything other than text data 
fields (type 1). If you do, Profile crashes! Usage 
of the conversion programme, after you've created 
the spreadsheet file with Profile, is simple. Here 
it is:- 

Convprofile <dyna_file >sdf_file 

Note that both input and output redirection is 
used. So without further ado, here's the code for 
my little utility. 



/* Conversion programme to change 0S9 Profile spreadsheet file */ 
/* to SDF file. Accepts STDIN for input, and writes STDOUT. */ 
tdefine BUFWAX 1000 



mainO 

{ 



char *inbuffer; 
int nc = 1? 
int flag = 0; 
char *malloc(>> 



/# pointer to memory returned by mailed) */ 
/# integer counter preset tc 1 for while loop *, 
/* end of record flag */ 
/* define function as returning char pointer */ 
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inbuffer = aalloc(BtRlAX); /* grab a chunk of memory to store file lines */ 
while (nc > 0) /* keep reading until nc = (end of file reached) */ 
{ 

nc = readln(0,inbuffer,EUFKAX); /* grab a line of text */ 
if((strnclftP( 1 /row , , inbuffer, A) == 0) I! <strncmp( "/ROW, inbuffer, 4) = 0)) 

continue; /* ignore special codes for DynaCalc */ 
if(inbuffer[0] == '*') /* and ccwirifent lines */ 

continue; 
if((inbuffer[03 == T S 7 ) && (inbuffeKl] == 7 \n')) 

( 

writed, "^",1); /* if 3 is found, end of record is reached */ 

flag = 0; /* so print a carraige return */ 

continue; 
} else < 

if (flag) 
[ 

writed, V,l); /* if net first field, write a comma */ 
} else ( 

flag = 1; /# else it was first field, so toggle flag */ 



writed,'^',!); /* write a field separator */ 

if (inbuffer[03 == T V T ) /* strip out apostrophe chars inserted by Profile */ 

writelnd,inbuffer+i,nc-2); J* write the line */ 
else 

wr itelnd , inbuffer, nc-1 ) ; 

writed/W); /* write a filed separator */ 

} /* and go around the loop */ 

freeunbuffer); /* free up memory */ 



DODOOOOODOOOOOOOOOOOOOODDODDDD 



HARD DISK BACKUPS 

We have in past editions cogent ed on the wisdom 
of making regular backups of a hard disk. To 
quote one of our members (D.E.) "there are two 
types of hard disk users? those who have just done 
a backup, and those who are about to have a 
crash!" 



Now one can understand why 
little slack when it comes 
the hard drive connected 
can often turn into a major 
several hours. This artic 
personal experience with 
hard disk utilities and whi 
an expert on the subject, 
useful. 



we probably all get a 

to making a backup of 

to the CoCo because it 

project which can take 

le is based on some 

some of the available 

le I do not claim to be 

I hope that you find it 



I run a 28 meg hard drive using the Burke & Burke 
interface and standard P.C. type controller. 
Burke & Burke supply hard disk utilities with 
their XT interface which include "hdb B & 'hdr' 
(hard disk backup & hard disk restore). Also 
available separately is "fsr", a hard disk file 



system repack utility which reads and rewrites 
files to eliminate fragmentation of the hard disk. 
These utilities work just fine, however the 
process can take many hours. 

HDKIT is another set of backup and restore 
utilities by Pete Lyall which is available from 
the public domain library. The description of the 
utilities directly from the hdkit.doc file reads, 
'The suite of backup tools in this archive is a 
collection of programmes that are written, 
maintained, documented and updated by Pete Lyall. 
Some of them are based on early versions of 
similar tools written by Dan Connolly and those 
provided for a similar purpose in the Unix system 
(i.e. CPIO). This toolkit is SHAREWARE/ CHE APWARE. 
Please read the last paragraph of this file before 
going on.' (end quote) 

The tools include, Files, Archdir, Eigfile & 
Restore. Hdkit uses pipes which tend to siow down 
its operation somewhat. 

Example :- 

files -bedge-3E ! archive /dd -vl 
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provided for a similar purpose in the Unix system 
(i.e. CPIO). This toolkit is SHAREWARE/CHE APWARE. 
Please read the last paragraph of this file before 
going on. 1 (end quote) 

The tools include, Files, Archdir, Bigfile & 
Restore. Hdkit uses pipes which tend to slow down 
its operation somewhat. 

Exasple s- 

files -bedge-30 ! archive /dd -vl 
/dd/log/monthly.log #40k ! bigfile /d0/part0 
/dl /parti /d2/part2 #40k 

The Hdkit suite works just fine, in fact I have 
used it for several backups and a couple of 
restores. 

The most difficult part of using Hdkit is 
remembering the correct syntax of command 
modifiers and command lines. 

REEACK is a basic89 procedure written by Jeff 
Elower which is a frGnt end for Hdkit which makes 
it »enu driven and remembers the command syntax 
for you. This procedure I have found to be very 
useful for backing up changed files or files 
created since the last backup. It saves a file 
"backup. date 6 in the /dd/sys directory so that you 
don't even have to remember the date of the last 
backup. 



end /hC 

files -ebdg-8! spanner 
l=/dd/log/friday.hkup 



/fO 



/fl 



For info on permanently changing defaults and 
other details, use 'man spanner 1 

Personally, 1 find it most convenient to use 
"files" to create a backup. list which can be 
edited prior to running the backup. Here are the 
command lines and procedure which I use. 

files -etdgYY/HM/DD >/r0/backup.Iist 

What this does is; 

E = expand to all directories 

T = total files and estimate disks needed for 

backup 

DG = dates of files greater than yy/mm/dd 

Noiii, edit the file "backup. list" to delete any 
files which are not to be included in the backup. 
0S9Boot & ALTEoot &re a couple which I normally 
delete as 1 use "bootport" to restore the kernels 
to the correct location Gn the disk along with 
0S9£cot etc. 

Now to commence the backup; 

spanner /dS /di -L=/r0/blog #32k </r0/backup.list 



SPANNER This is a utility written in C by Jay 
Heisse which also uses some of the tools frcm 
HDKIT. 

SPANNER copies files (named on stdm) to removable 

media, 

-or- restores files/directories if -r option given 

options: -r u -lE=Iogfilename] /devl /bev2 /dev3 
/dev4 

-r restores files from floppies to CURRENT 

directory 

-» writes files to floppies, (default) 

-I logfile, logs messages to /R8/blog by 

default. 

-1=FILENAME to change from default. 

/dev default backup drive is /Fl, but a drive or 

drives may be given. 

In the case of multiple drives, they will be used 

in sequence before prompting for more media. 

Brivename arguments are recognized by the leading 

slash. 

example^ 



In this example, spanner will use floppy drive /d8 
for "parti" /dl for "part2" and prompt for more 
media once the first two disks are filled. A log 
of all files archived will be created on />8 
called "blog" (backup log). Spanner tui 1 1 read 
pathnames and files from "backup. list" and include 
only the files listed in this file. 

The best part of all is the time saving. My hard 
drive has about 24,030 sectors in use by files, 
and Spanner does a full backup of all files in 
under one il) hour, including floppy formatting. 
Spanner has a toggle which can be changed between 
floppies to turn ON & OFF the floppy format 
function. 

To restore the files from the floppy backup set, 
just add the -r option (restore) 

spanner -r /dfl /dl -L=/r8/blog #32k 

The above examples assume that device descriptor 
/dd refers to the hard drive, which will normally 
be the case. 

Gordon Eentzen. 
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orooooooc*D(K>00000000oooooooooo 
The New 6FX2 

Those of you who read the magazine 'The Rainbow' , would no doubt have seen the references to a 'new' 
GFX2 module for use with Basic09. Indeed, many were the curses heard by me when Basic09 programmes, 
listed in that magazine, could not be used because a 'new version 7 was required. Well, now you can all 
use the new GFX2 module, because it is available from the software library. The copy we have in the 
library is a sort-of pre-release version, but all the necessary parts &te there. The programme archive is 
available in the usual way from our software librarian, Jean-Pierre Jacquet. 

I have taken one of the documentation files from the archive, and reproduced it here for you to whet 
your appetites, have a read of this:- 



WINDOW COMMANDS 



Previously, setting up menued windows, or even getting the mouse packet, involved using the Syscall 
subroutine and information from the developer's documentation. I believe this has stymied the casual 
programmers a lot. In an attempt to make things easier, GFX2 now supports the more popular windowing stat 
calls. (See "gfx2.iaan B ) 

There are four new calls used to set up a menued window: TITLE, MENU, ITEM and WNSET. They require some 
program storage for the main window descriptor and each of the menus, which is most easily set up by 
defining string arrays. The main window descriptor variable must have a dimension of at least 2\ 
otherwise the dimension should be at least the same count as the number of menu bar selections (across 
the top: like FILES, TANDY, etc), plus I more. 

Each menu bar selection may have items that are in its pulldown menu. Each pulldown requires an array 
dimensioned to at least the number of items, 

SETTING UP MENUS 



!he new commands are much easier to use than to explain. In addition to the examples on disk and the 
Details here, let us set up a small menued window program as a quick example... 

Let's say that you wanted to write a program called 'Tools", that had two menu selections (in addition to 
the close box, which is automatically defined). These menus &re called "Disk" and "Memory". Under Disk we 
want E Dir', 'Free', "PWD 8 , and "Format". Under Memory we want 8 MFree B and "Procs 1 . 

First, we must set aside storage for OS-9 and 6FX2. Since we have two menubar selections, we define a 
window descriptor arrau of size 2+1 = 3. 

DIM wd(3):STRING \ (* This is the window descriptor) 

We also need to define storage for each pulldown menu. Our first selection has three items, our second 
has two. (NOTE: if the number of items might change, simple give it more size accordingly). 

DIM ml (3) STRING \ <* Disk selection 
DIM m2(2):STRING \ (* Memory selection 

We need to assign an ID number to both menu selections. Numbers 1-32 are reserved for the system, so 
let's use 33 and 34. 

DIM MId.Disk,MId_Mem:lNTEGER 

MId_Disk=33 

Mid Mem =34 
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We can also define some numbers that will make reading the program a little easier: 

DIM Disable,Enable:INTEGER 

Disable=0 

Enabled 

The rest is easy' Simply fill in the blanks for the following commands: Set the title name, minimum 
window size, number of menu selections: 

RUN gfxl'CTitleNwd, "Tools", 34, 10,2) 

Set up each menu selection position, name, ID, width, itemcount, items, enable: 

RUN gfx2( "Menu", ud,l, "Disk - , Mid Jisk, 8,4, ml, Enable) 
RUN gfx2<Mte» - ,»M, , Dir ", Enable) 
RUN gfx2( , Item',mi,2, , Free ", Enable) 
RUN gfx2CItem 1 ,mi,3, i PWD ", Enable) 
RUN gfx2C Item", ml, 4, "Format", Disable) 

RUN gfx2CMenu",wd,2, •riemory a ,MId^Mem,5. 2, m2, Enable) 
RUN gfx2( 'Item", m2,i,"MFree', Enable) 
RUN gf x2( a I tea", Bt2,2i B Procs i , Enable) 

NOTE: the order isn't important above. It's just easier to r-^6 this way. Now that we ha^e defined the 
window, selections, and pulldowns, we can tell 0S9 to set up a framed ',type=i> window: 

RUN gfx2("WnSet 5 ,i,wd) 

You can disable or change the menus on the fly. 

USING THE HOUSE 



New that the menued window is set up, there are several utility calls that are very helpful. First, we 
need to turn on the gfx cursor and also the autof olios (since we'd ra\hEr not keep telling 0S9 where to 
put the cursor 1 ). 

RUN gfx2( a SetKouse',3,i,I) \ <* Turn on autofollow 

RUN gfx2( G GCSet\*CA,i) \ (* Use standard arrow pointer 

The House call will tell us the status of the pointing device: 

DIM valid, fire, mx, my, area, sx,sy: INTEGER \ U Place at program front! 
RUN gf x2( "House 8 , val id, f ire, mx, my, area, sx,sy) 

We could simple loop around, checking the mouse and the keyboard ilNKEV), but quite often a program need 
only wait for the user to click his fire button, and only then do we go after the menu selection. This is 
much more friendly to other programs running, and aids in multitasking quite a bit: 

RUN gfx2rOnMouse",0) \ (* Sleep until mouse clicked 

This will return only when this window is the interactive one, and the user has clicked his mouse button. 
Then we are woken up, and can figure out what he meant us to do: 



GETTING MENU SELECTIONS 
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On Makeup, we need to see if the user is really clicking on the menu area. 

RUN gf >:2 (' Mouse', valid, fi re, mx f my , area, sx,sy) 

If valid isn't zero, and the right button is down, and the area is the menu area, then we know what the 
user meant. So we can call the Get Selection routine to let the user pulldown a menu or return a bar 
selection like Close. 

DIM menu_id, menu_i tern: INTEGER \ (* This should be at front of program! 
RUN gfx2( l, GetSer,menu_id, menu, item 

The menu_id will be the menubar selection (00 if none), and the menu_item will be the specific pulldown 
item number. 

The total loop to wait for a click, see if menu, get the selection, is: 

LOOP 
RUN gfx2( , OnHouse',0) 

RUN gf x2( "Mouse" , val i d, f ire, m>:,my , area, sx , sy ) 
IF validOB AND fire=l AND area=l THEN 
RUN gfx2("GetSer,menu_id,menu_item) 
IF menu_id <> THEN 
50SUE xxx \ (* go do selection number *) 
ENDIF 
ENDIF 
ENDLOGP 

You could also wait for the mouse click in a drawing program- for example, and if it wasn't on the 
menubar Area, (area=l) then you could start a drawing loop or whatever. 

For those of you who write programmes in £asic09, this will really take the work out of using the 
Multi-Vue windowing manager, with its pull downs and mouse selection. I expect to see a flood of requests 
for usergroup software after this. 

Bob Devries. 

oooodoooooOOOOOOOOOOooooqqoqooo 

STARTING MULTIWE 



Most, if not all of CoCo OS? Level 2 users 
occasionally use the Multi-Vue desktop graphical 
interface on their machines. With the patches 
which are available for gshell, it makes a 
reasonably good GUI (Graphical User Interface) 
which runs at an acceptable speed. All of the 
patches for speed and operational improvement are 
available from our Public Domain Library. 

One of the things that has irked me for some time, 
was the fact that multistart really does not leave 
your system in the state in which it existed, 
before Multi-Vue was run. The main problem 
involves the replacement on an existing window 
with a graphics window. If you are like me, you 
only use graphics windows when you absolutely have 
to, and to have one of your existing windows 
changed to a hi-res graphics window, often with 



proportionally spaced hi-res fonts in operation, 
is not acceptable. 

To get around this problem, I wrote the following 
utility to replace MultiStart. Source code for 
both C and EasicB? versions are included for you. 
The utility is simply named mvu, and uses the 
system default settings to start multiview. (ie 
Mouse Resolution and Port, as well as colours 
initially selected. J Changes to these settings 
could be fairly simply added to the code, however 
I bii 1 1 leave that to you to do. Something to keep 
you occupied over the Christmas holidays, (grin). 

The only other thing to look out for (see comments 
in sources) is the setting of the execution 
directory. You will f^e to change this to 
reflect your own system setup. In other words, 
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the location of your HultiVue coRimands needs to be 

set in that particular line* or the programme will Cheers ... Don Berrie, 

not work. 



C Source Code 

/* Mvu.c -- simple flultistart replacement ™ (c) 1990 D. Berrie */ 

ttinclude VhS/usr/ccomp/defs/stdio.h" 
^include "/h8/usr/ccofffp/defs/os9.h' 

int wpath; 

struct registers regs; 

mainO 
{ 

char devnani[32]; 
char systrESBJ; 
int *mvprno? 
sysMB] = '\0'; 
upath^peTiiVa^j); 
DWSet(wpath,7,0,0,80,24,0,0,0); 
getdev ( devnam, wpath ) ; 

chxdiriVhS/cmds/xcmdB 1 ); /***** Change for your cum system *****/ 
Select(wpath); 

st r c py ( sys t r , B gshe 1 1 <> » E ) ; 
strcat ( systr , devnam) ; 
systefri(systr}; 
} 

getdev(outstr,pathno) 
char outstrE323? 
int pathno? 

( 

char teiS5tr[323; 

char *ptr? 

int i = 0; 

outstrEfi] = V; 

outstKU = T \S'; 

ptr = te&str; 

regs.rg_a = pathno; 

regs.rg_b = BxSe; 

regs.rg.x = ptr; 

_059(LGETSTT,&regs}; 

for (i=0; temstrCi] < 0>;7d && temstKil > 0;i++)' 1 

temstK i 3 = temstrC i 3 & 0x7f; 

temstr[i+l] = '\0M 

strcat i ou tstr , terostr ) ; 

\ 



BASICB9 Source Code 

PROCEDURE ffivu 

(* Hvu — Simple Multistart replacement — (c) 199E D. Berrie *) 
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DIM devnam:STRINGC32] 

DIM systr: STRING 50] 

DIM «path:BYTE 

OPEN #wpath,'/w" UPDATE 

RUN gf>:2(wpath, "dwset",7,0,B,80, 24, 8,0,6) 

RUN getdev(devnam,wpath) 

CHX B /h8/cmds/>:cmds" (***** Change for your own system *****) 

RUN gf>:2(wpath, "select") 

SHELL 'gshell <>» 1 +devnair. 

PROCEDURE getdev 

ON ERROR GOTO 1008 

TYPE registers=cc,a,b,dp:BYTE; x,y,u: INTEGER 

DIM regs Registers 

PARAM devnam:STRINGC323 

PARAM wpatb:BYTE 

DIM it INTEGER 

DIM call code: BYTE 

DIM errnufflSBYTE 

regs.a=wpath 

reg5,b=$0E 

regs. x=ADDR( devnara) 

callcode=$8D 

RUN syscal I i cal lccde, regs) 

FOR i=l TO 32 

EXITIF MID$(devnam,i,l)>CHR*U28) THEN 

devnam="/ 8 +LEFT*(devnam, i-1 )+CHR$«ASC<KID$(devnam, 1,1} )-12S) 

ENBEXIT 

NEXT i 

END 

1S08 RUN closerr(wpath,errnum) 

END 

OGOOOOCGOOOOOOOOOOOOOOOOOQOGOO 

DATAHODULES 



Do you have a floppy disk system? How many times 
have you typed the line: 

chd /dS;chx /oWcmds 

If you are like rae, that is about the only line 
that you can touch-type!! Before I purchased ay 
hard diski I suppose I typed just that line maybe 
28 or 38 time each session!! You know, every time 
that you wanted to run something different, and 
you did not have the correct disk in your 
(single?) drive, you needed to type this string. 

OK so now you've spent your dollars, and puchased 
a hard drive. Now the problem becomes: 

chd /h8/usr/ved/docs;chx /h8/usr/ved/cmds 

This is really no better" 

Well an answer is at hand. Using packed data 



modules, we can simply replace these strings with 
a (perhaps) two or maybe three letter command. 
Here is the process. 

First of all build your string, using a text 
editor or whatever, maybe you could even use edit. 
Just a simple example at first. 

EDIT newd (for newdisk) 



chd /d0?chx /(ffl/cads 
ComnvftwcA 

q(uit) 



Then, using datamod (available from our PD 
library) pack the module. 

DATAMOD nd <newd >nd 

ATTR nd e pe 
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LOAD nc' and replace the disk. You will then be located 

back where yen case fro?!. 
New when you type nd, the comraand string "end 

/dO;chx /dO/cisds" and then the executable file As you can cp 8 , the possibilities are endless!)! 
will be executed'!' Neat hey? 

One further enhancement, each of these packed 

Another variation would be to use exactly the data ffloduies are sxtrercely saail Ui :e r ns of the 

sauie string, but enclose it in brackets. That nuns-- c- bytes of sesory used), and so a large 

is, "(chd /dO;chx /dO/c^cs) H . 5a rhrnuq- the nufroer of them can be crammed into one 8K block 

sar^e process again, this tisie giving it a oy merging them together before they Are loaded, 

different name, say nsd, and not using 3 Von (say even nave enough space left with your 

particular executable file to run, Then when you modules fledged with SHELL to ill in a few, That 

load and execute the coassand, "nsd", the system way, you ge: all o- tne advantages, and staybe use 

will start a ne* shell, in the current Kinoo*, NO siesory!! 
and proceed to change the directories, Then you 

can rau any process from that shell that you Happy Christaas ... Son Berne, 
wish. When you have finished with that 
particular disk, sistply type (CONTROL) + <BREAK> 

oooooooGooGOOOQDOGOQooooooocon 



lilMi?^ , <; «•-.<*•'. ^.-rvyf.^:; - 
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The COCO-LINK AKARD is presented annually to individuals 
or organisations who the editors of COCO-LINK consider 
have contributed something of value to the Coco Community 
in Australia. $100.00 is awarded each year. 

This year's COCO-LINK AWARD goes to the NATIONAL 0S9 USER 
GROUP for organising and maintaining this very important 
section of the Australian Coco world. 

I think we all owe a debt of gratitude to Gordon Bentzen, 
Bob Oevries and Don Berrie for taking up the challenge 
and bringing new life to the 0S9 User Group after it had 
fallen by the wayside. These three gentlemen deserve all 
the accolades we can bestow on them. 

The monthly newsletter of the National 0S9 User group 
carries information and programming for the budding, as 
well as the more advanced 0S9 user. The Group also 
maintains a large library of 0S9 Public Domain software 



which is available to subscribers at minimal cost. The 
three office holders named above have always been found 
willing to help straighten out the problems of the less 
informed. 

In presenting the $100.00 cheque to the NATIONAL 0S9 USER 
GROUP we hope, in some small way, to help ease the 
financial burdon of running a national group such as this 
and, in so doing, insure the continuance of the group. 

He heartily congratulate you on a job well done. 

Robbie Oalzell I Garry Holder 
For COCO-LINK Kagazine. 

(Details on how to subscribe to the NATIONAL 0S9 USER 
GROUP can be found in the Noticeboard page in this 
magazine). 







